home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 February
/
EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso
/
recent
/
mcf4amrc.lha
/
MCF4AmIRC
/
Rexx
/
MCF_OP.AMIRX
< prev
next >
Wrap
Text File
|
1996-09-17
|
780b
|
10 lines
/* MCF_OP.AMIRX
// $VER: MCF_OP.AMIRX 4.1 (29.07.96)
\\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
// Please mail any bug reports/comments to the above address with a subject
\\ header of MCF.AMIRX.
//
\\ ** What to do with this file?
// Put this script in REXX: It will be used by MCF.AMIRX.
*/
;parse arg MCFenv MyNick Unick CurCh junk Rnick junk;address value(MCFenv);xl=pos(".",MCFenv)+1;Client=substr(MCFenv,xl);OPC="OPS."||Client;Ops=getclip(OPC);if Ops ~="Y" then exit;CName=CurCh||"."||Client;ChUs=getclip(value(CName));if Rnick="" then Rnick=Unick;URnick=upper(Rnick)||" ";if 0=pos(URnick,ChUs)|Rnick="" then;do;"RAW PRIVMSG "Unick" :You cannot OP "|| d2c(2)||Rnick||"." Rnick|| d2c(2) "is not on"|| d2c(2) CurCh;exit;end;"say /op "CurCh Rnick;exit